home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _CHKLIST.PRG < prev    next >
Text File  |  1993-05-04  |  703b  |  34 lines
  1. FUNCTION _ChkList
  2. PARAMETER pc_fldlist, pc_file
  3. *-- Checks a field list to verify that all entries are valid field names
  4. *-- for the current alias
  5.  
  6.   PRIVATE lc_fld, lc_list, ll_ok, ln_delim
  7.  
  8.   lc_list = pc_fldlist
  9.   ll_ok = .T.
  10.   ln_delim = AT( ",", lc_list )
  11.  
  12.   DO WHILE ln_delim <> 0 .AND. ll_ok
  13.     lc_fld = LEFT( lc_list, ln_delim - 1 )
  14.     ll_ok = TYPE( TRIM( pc_file ) + "->" + lc_fld ) <> "U"
  15.     lc_list = SUBSTR( lc_list, ln_delim + 1 )
  16.     ln_delim = AT( ",", lc_list )
  17.   ENDDO
  18.  
  19.   IF .NOT. ISBLANK( lc_list )
  20.  
  21.     IF TYPE( TRIM( pc_file ) + "->" + lc_list ) = "U"
  22.       ll_ok = .F.
  23.     ENDIF
  24.  
  25.   ELSE
  26.     ll_ok = .F.
  27.   ENDIF
  28.  
  29. RETURN ll_ok
  30. *-- EOF: _ChkList
  31.  
  32.  
  33.  
  34.